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A ARTE DE FAZER LAÇOS 


A utilidade dos comandos FOR.:.NEXT. Como criar 
efeitos sonoros. Faça o sol se pôr, movendo ape- 
nas algumas teclas e desvende a beleza dos calei- 
doscópios. Como provocar repetições de um trecho 
06 DrOGRAMA o. ss ceaaa eo Eme so AR, O AN 21 





APONTAR... FOGO! 


Aprenda a verificar se uma tecla foi pressionada 
e a controlar figuras em movimento na tela. Para 
que serve o comando INKEYS? Dispare seu míssil 
e destrua O Inimigo. Veja para que serve a auto- 
RR O Ds ELE Sa ES A a 29 





APRENDA A CONTAR COM UM DEDO SÓ 


Alguns sistemas numéricos. Faça contas em dife- 
rentes bases. O sistema binário constitui o idioma 
do computador. Uma calculadora para todas as ba- 
ses. Bits e Bytes. Para poder programar em lingua- 
gem de máquina, é necessário conhecer o sistema 
PRA ss oo DR im E O irei 34 
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PLANO DA OBRA 
“INPUT” é uma obra editada em fascículos semanais, e cada 


conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, poderão 
ser comprados, a preços atualizados, da seguinte forma: 1. Pessoalmente — por 
meio de seu jornaleiro ou dirigindo-se ao distribuidor local, cujo endereço po- 
derá ser facilmente conseguido junto a qualquer jornaleiro de sua cidade. Em 
São Paulo os endereços são: Rua Brigadeiro Tobias, 773 (Centro); Av. Industrial, 
117 (Santo André); e, no Rio de Janeiro: Rua da Passagem, 93 (Botafogo). 2. Por 
carta — Poderão ser solicitados exemplares atrasados também por carta, que deve 
ser enviada para DINAP — Distribuidor Nacional de Publicações — Números 
Atrasados — Estrada Velha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
Osasco — São Paulo. 3. Por telex — Utilize o nº (011) 33670 ABSA. Em Portu- 
gal, os pedidos devem ser feitos à Distribuidora Jardim de Publicações Ltd. — 
Qta. Pau Varais, Azinhaga de Fetais — 2685, Camarate — Lisboa; Tel. 257-2542 
— Apartado 57 — Telex 43 069 JARLIS P. 

Não envie pagamento antecipado. O atendimento será feito pelo reembolso postal 
e o pagamento, incluindo as despesas postais, deverá ser efetuado ao se retirar 
a encomenda na Agência do Correio. Atenção: Após seis meses do encerramento 
da coleção, os pedidos serão atendidos, dependendo da disponibilidade de es- 
toque, Obs.: Quando pedir livros, mencione sempre o título e/ou o autor da obra, 
além do número da edição. 
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A ARTE DE FAZER 





LAÇOS 


Os comandos FOR e NEXT servem 
para provocar repetições de um 

trecho de programa em 

BASIC. Muito versáteis, eles são 

“pau para toda obra" e podem 

ser empregados em quase tudo, desde 
jogos até programas comerciais. 


— == 


PANAA NOM 
MA A XANA 


ME APRENDA À CRIAR EFEITOS 


SONOROS 


Um laço é uma estrutura de progra- 
mação usada em operações repetitivas. 
Ele é usado quando se quer que o com- 
putador conte até um certo numero, exe- 
cutando, ao mesmo tempo, alguma ou- 
tra operação. Além disso, O laço pode 
ser aplicado na repetição do mesmo pa- 
drão gráfico em diferentes posições na 
tela. A combinação de instruções FOR 
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EE  DESENHE NÚMEROS COM LAÇOS 


FOR... NEXT 


E  ONASCEREOPÓR-DO-SOL NO 


HORIZONTE DO VÍDEO 


E CALEIDOSCÓPIOS 





e NEXT na linguagem BASIC é usada 
na programação de diversos tipos de 
laços. 

Assim, você aprenderá a criar “pin- 
turas instantâneas” usando laços 
FOR... NEXT em programas muito pe- 
quenos. Esses laços serão igualmente 
Uteis na programação de jogos e em pro- 
gramas de todos os tipos. 
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O QUE E UM LAÇO FOR... NEXT 





Um laço FOR... NEXT em BASIC 
é um mecanismo que faz com que o 
computador repita uma mesma opera- 
ção certo número de vezes, 

Suponha, por exemplo, que você qui- 
sesse saber as raízes quadradas de todos 
os números de 1 a 100, Você poderia di- 
zer ao computador: 


PRINT SQR(1) 
PRINT SQR(2) 
PRINT SQR(3) 


. e assim por diante. 

E a cada pergunta o computador da- 
ria a resposta. Mas, além de impor um 
enorme trabalho de digitação aos seus 
dedos, esta não é uma técnica particu- 
larmente eficiente de uso do computa- 
dor. Tente assim: 


E 1TÇ| 
LO FOR N=1 TO 100 
20 PRINT N,SQR(N) 


30 NEXT N 
40 PRINT "E ACABOU." 


Esse programa faz com que o com- 
putador imprima 1 e sua raiz quadrada, 
2 e sua raiz quadrada, 3 e sua raiz qua- 
drada.., e assim sucessivamente até atin- 
gir 100, no momento em que o apare- 
lho pára. 

Como ele faz isto? Quando o com- 


putador encontra um FOR, “sabe” que 


as linhas seguintes serão repetidas. As- 
sim, ele as executa até encontrar o 
NEXT, volta à linha da instrução FOR 
e repete o processo. 

Enquanto trabalha, o computador 
também está contando. A primeira vez 
em que passa pela linha 20 ele calcula 
a raiz quadrada de 1, na segunda, a de 
2, e assim por diante. 

Quando tiver trabalhado com o 
maior número da instrução FOR, ele 
deixará automaticamente o laço e con- 
tinuará a execução do programa pela 
instrução seguinte ao NEXT — no nos- 
so caso o PRINT da linha 40, 





FRAÇÕES TAMBÉM 


Ao executar um laço FOR... NEXT, 
o computador pode contar em unidades 
diferentes de 1. Para isso, usamos a de- 
claração STEP (isto é “passo” ou “'de- 
grau) junto com a declaração FOR. 
Veja o air 


10 FOR N=1 TO 30 STEP 2.7 


20 PRINT N,SQR(N) 
30 NEXT N 


O computador não se atrapalha com 
o fato de que 30 não se divide em um 
número exato de passos, como você pe- 
diu. Ele vai o mais perto que pode e en- 
tão para. 

O número de linhas entre o FOR co 
NEXT tampouco o preocupa. Você po- 
de colocar o FOR na linha 10 e o NEXT 
na 90 — ou mesmo 9000 — que ele não 
se esquecerá delas. Lembre-se, porém, 
de que o computador executará as linhas 
do laço a cada passagem, 





COMO RETARDAR A AÇÃO 


O laço FOR... NEXT tem dezenas de 
usos em programação. A mais simples 
delas é gastar tempo. 

Se você rever a seção Você sabe ta- 
buada? na primeira lição de BASIC, en- 
contrará um bom exemplo, Nesse caso, 
tudo o que acontece entre cada FOR e 
o seu NEXT é que o computador “'con- 
ta” um número. Essa contagem é mui- 
to rápida (o tempo exato pode ser da or- 
dem de centésimos ou milésimos de se- 
gundo). Mas, enquanto espera que ele 
conte até 1000, você terá uma pausa bem 
perceptível. E se você executar: 


10 FOR N=1 TO 1000000 

20 NEXT N 

«.. terá tempo, provavelmente, para to- 
mar um café antes que ele termine. 





APELO SONORO 


Programadores de jogos frequente- 
mente tornam essas pausas menos can- 
sativas, inserindo nelas algumas notas 
musicais. Tente este exemplo: 


10 FOR 1=255 TO 155 STEP -1 
20 SOUND 1,1 
30 NEXT I 


10 FOR n=29 TO 10 STEP -1 
20 SOUND .015,n 
30 NEXT n 


5 SOUND 7,56: SOUND 8,15 
LO FOR 1=455 TO OU STEP -4 
20 SOUND 0,1 

30 NEXT I 


ri 
e | 
LO FORN= 1 TO dl00 


20 PRINT PEEK ( - 16336). 
30 NEXT N 


tdo 


O Apple II padrão não têm coman- 
dos intrínsecos para a produção de efei- 
tos sonoros. Desse modo, o efeito con- 
seguido é apenas uma série de cliques. 
Jão TK-2000 tem o comando SOUND. 


Para rodar o programa acima no 
TK-2000, substitua as linhas 10 e 20 
assim: 


10 FOR 1=80 TO 15 STEP -2 
20 SOUND 1,30 


Este é um exemplo do efeito de som 
que os programadores usam em jogos 
para dizer “Você falhou” ou “O alie- 
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nigena aterrisou ”. Ao mesmo tempo, 
quando se faz uma contagem regressi- 
va, a declaração STEP existente no la- 
co FOR... NEXT deve ser seguida de 
um número negativo, destinado a dimi- 
nuir sua frequência. 





PINTANDO O SETE E OUTROS NÚMEROS 


Apenas por divertimento — e valio- 
sa experiência em programação — você 
pode usar laços FOR... NEXT para 
criar variedades de efeitos gráficos. 
Aqui está uma amostra: 





' CLS O 


10 
20 
30 
40 
20 
60 


10 
20 
30 


FOR N=0 TO 63 
LET M=RND(32)-1 
LET C=RND(9)-1 
SET (N,M,C) 
NEXT N 

GoTo 10 


FOR n=y) TO Zl 
LET m=RND*31 
INK RND*/+14 





Os comandos ou palavras-chave em 
BASIC, tal como PRINT, GOTO, 
STEP, etc., precisam ser digitados 
sempre em letras maiúsculas? 

Sim, quase sempre. É preciso con- 
siderar, no entanto, as especificidades 
das diversas linhas. Alguns computa- 
dores, como os compatíveis com o | 
ZX-81 e o Sinclair Spectrum não dei- | 
xam margem a dúvidas, pois as pala- 
vras-chave são entradas por inteiro, em 
maiúsculas, ao se pressionar a tecla 
correspondente. 

Outros computadores, como os 
compatíveis com a linha TK-2000 e os 
Apple Ile Apple Il Plus, não têm minús- 
culas (e nem aceitam comandos que 
não sejam em maiúsculas, caso você 
tenha essa opção em sua máquina). 

Finalmente, os compatíveis com as 
linhas MSX e TRS-80 aceitam coman- | 
dos em minúsculas, mas convertem in- 
ternamente para maiúsculas todos os 
comandos em BASIC. 





40 PRINT AT n,m;"m” 
50 NEXT n 
60 GOTO 10 


10 SCREEN 43 

£0O R=RND(-TIME) 

30 FOR N=0 TO 191 STEP 4 
40 LET M=RND(1)*255 

50 LET C=RND(1)*15 

GO PSETÍM,N),€C 

70 NEXT N 

30 GOTO 30 


5 GR 

IO FORN=0OTO GI 

LU LET M = RND (1) * 40 
du COLOR= RND (1) * 15 
4) PLOT M,N 

50 NEXT N 

60 GOTO 10 


A linha 10 define a altura do desenho 
que será colocado no video e diz ao 
computador para imprimi-lo linha por 
linha. 

A linha 20 define a largura e, soma- 
da à linha 40, ordena ao computador 
que imprima pequenos quadrados alea- 
toriamente naquela largura disponível. 

A linha 30 escolhe, ao acaso, as co- 
res dos quadradinhos. 





O 





Inicialmente, forma-se na tela uma “colcha de retalhos”... 





VARIAÇÕES SOBRE UM MESMO TEMA 


Experimentar variações desse tema de 
elaboração de gráficos vai ajudá-lo a se 
familiarizar com laços FOR... NEXT e 
com a função RND., 

Aqui temos mais duas para cada má- 
quina. Não se esqueça de digitar o co- 
mando NEW entre elas, para evitar que 
os programas se misturem. 


“2 PROGRAM 
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! aê 


O TRS-50 comum e seus compativeis 
não selecionam a cor do ponto gráfico: 
por Isso O programa não tem muita gra- 
ça. Se você quiser ver como é, substitua 
na versão abaixo a linha 40 e retire a li- 
nha 30; 


40 SET (N,M) 
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- Que continua a-se repetir. Esta é a versão para o TK-90X. 


CLSO 

FOR N=] TO 60 
FOR M=0 TO 31 
LET C=AND(9)-1 
SET (N,M,C) 
NEXT M 

NEXT N 

GOTO 10 


lente também a seguinte variação 


para o TRS-Color: 


N=RND (60) 
M=0 TO 31 
C=RND(9)-1 
(NM, C) 
NEXT M 

GOTO 10 


FOR n=0 TO 21 
FOR m=0 TO 31 
INK RND*/+1 
PRINT AT n,m;"m" 
NEXT m 

NEXT n 

GOTO 10 


[Ja mesma forma, o ZX-8] não tem 


cor. Para rodar o programa, retire a li- 
nha 30 e use apenas letras minúsculas, 
quando digitá-lo. 


LE 


Para o TK-90X, tente ainda a seguin- 
variação do programa. O que acon- 


tece de diferente”? 


10 
2Q 
30 
40 
45 
69 


10 


LET n=RND*21 

FOR m=0 TO 31 
INK BRND*/+1 
PRINT AT n,m;"qa” 
NEXT m 

GOTO 10 


SCREEN J 








Pór-do-sol, de autoria do laço FOR... 


20 R=BND(-TIME) 

30 FOR N=0 TO 191 STEP 4 
40 FOR M=0 TO 255 STEP 4 
50 LET C=RND(1)*15 

60 PSET(M,N),C 


65 NEXT M 

70 NEXT N 

BO GOTO 30 

10 GR 

20 LET N = BND (1) * 40 
30 FORM = O TO gas 

40 COLOR= BRND (1) * 15 
50 PLOT M,N 

60 NEXT M 


BO GOTO 20 


Antes de ir adiante, aqui está uma pe- 
quena experiência que você deveria ten- 
tar — apenas no TK90X e no CP4O0, 
Apague a linha 45 dos dois primeiros 
programas e rode-os novamente com a 
seguinte modificação: 


55 NEXT M 


Você descobriu mais uma caracteris- 
tica importante dos laços FOR... 
NEXT: quando se tem dois ou mais la- 
ços no mesmo programa, estes devem fi- 
car ou “aninhados” um no outro ou se- 
parados. Se eles se cruzam, O programa 
não funciona. 


Este programa usa um laço FOR... 
NEXT para criar um padrão de ''pôr- 
do-sol”. A primeira parte do programa 
define um ponto no meio da tela. Em 
seguida, ele desenha linhas luminosas 


NEXT para o TK-2000, 


que irradiam desse foco. 

A segunda parte desenha uma série 
de linhas na metade inferior do video, 
partindo de pontos fixos no “horizon- 
te”. Isso cria um belo efeito de perspec- 
tiva que pode ser aproveitado em pro- 
gramas futuros. 


20 PMODE 3,1 

30 PCLS 3 

dy COLOR 2 

50 SCREEN 1,0 

60 FOR N=1 TO BO 

70 LINE(127,95)-(256-RND(256),9 
6-RND (96) ) , PSET 


BO NEXT N 
90 COLOR 4 
100 FOR N=95 TO 191 STEP 12 
110 LINE (127,95)-(0,N), PSET 
120 LINE (127,95)-(255,N), PSET 
130 NEXT N 
140 FOR N=0 TO 255 STEP 10 
150 LINE(127,95)-(N,191),PSET 
160 NEXT N 
170 GOTO 170 
5 BORDER O: PAPER O: INK 6: 
CLS 


10 FOR n=1 TO 80 

20 PLOT 127,75 

30 DRAW INT (RND*250)-125, INT 
(RND*97) 

40 NEXT n 

45 INK 5 

50 FOR n=75 TO O STEP -l5 

60 PLOT 127,75 

70 DBAW -127,-n: 
DRAW 127,-n 

BO NEXT n 

FOR n=-127 TO 127 STEP 20 

PLOT 127,75 

DRAW n,-/5 

NEXT n 


PLOT 127,75: 
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A versão do Apple II para o Calaldsseaiio, 


20 SCREEN 2 
30 CLS 
40 COLOR 11 


20 R=-BND(-TIME) 

60 FOR N=1 TO BO 

70 LINE (127,95)-(256-RND(1)*25 
6,96-RND(1)*96) 


BO NEXT N 

90 COLOR 6 

100 FOR N=95 TO 191 STEP 12 
110 LINE (127,95)-(0,N) 
120 LINE (127,95)-(255,N) 
130 NEXT N 

140 FOR N=0 TO 255 STEP 10 
150 LINE (127,95)-(N,191) 
160 NEXT N 

170 GOTO 170 

| ã | (e ] 

10 HGR 


£0 HCOLOR= 5 

30 FOR I = 1 'TOgBo 

40 HPLOT 139,79 TO JRND (1) * 
279, BAND (1) * 79 


90 NEXT 1 
60 HCOLOR= 6 
0 FOR I = 79 TO 159 STEP 10 


80 HPLOT 139,79 TO O0,I 
90 HPLOT 139,79 TO 279,1 


100 NEXT 1 

110 FOR JT] = O TO zZ79 STEP RO 
120  HPLOT 139,79 TO 1,159 
130 NEXT 1 


e CALEIDOSCÓPIOS 


Finalmente, temos um programa es- 
petacular que funciona em quatro de 
nossas máquinas. 
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3 PMODE 3,1 
6 PCLS 




















No TK-80X o Caleidoscópio é mais grosseiro e intenso 
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10 
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sete O 


SCREEN 1,0 

FOR L=0 TO 255 STEP 2 
COLOR RND (4) 
LINE(0,0)-(L, 191), PSET 


O LINE(O,191)-(L,0), PSET 
LINE (255,191)-(255-L,0), PSE 


NEXT L 
GOTO 10 


FOR n=0 TO 255 STEP 3 

INK RND*B 

PLOT 0,0: DRAW n,175 

PLOT 255,0: DRAW -n,175 
PLOT 0,175: DRAW n,-175 
PLOT 255,175: DRAW -n,-175 


USE O LAÇO CERTO 

Existem muitas oportunidades para 
usar os comandos FOR... NEXT em la- 
cos, mas também muitas ocasiões em 
que você não deve empregá-los, 

Quando você quiser, por exemplo, 
forçar o programa a realizar um núme- 
ro fixo de repetições, sem interrupção 
em quaisquer fases do processamen- 


| to, use um laço FOR... NEXT. 


| declaração diferente, 


Em contrapartida, se você quiser 


que uma sequência de programa seja | 
executada até que uma determinada 


condição seja atingida, para em segui- 
da “sair” de dentro do laço, use uma 
no lugar de 


| FOR... NEXT. O comando mais reco- 


mendável em casos assim é o GOTO, 
em BASIC. 





LINE (255,0)-(255-L,191),PSE 


60 NEXT n 
70 GOTO 10 


3 R=RND(-TIME) 


6 CLS 
9 SCREEN 2 
10 FOR L=0 TO 255 STEP 2 
15 COLOR RND(1)*15 
20 LINE (0,0)-(L,191) 
30 LINE (255,0)-(255-L,191) 
40 LINE (0,191)-(L,0) 
50 LINE (255,191)-(255-L,0) 
60 NEXT L 
70 GoTo 10 
IL 
10 HGR 
20 FORN = 0 TO 279 STEPS 
30 HCOLOR= BND (1) * 6+1 
40 HPLOT 0,0 TO N,159 
50 HPLOT 279,0 TO 279 - N,159 
60 HPLOT 0,159 TO N,0 
70 HPLOT 279,159 TO 279 - N,0 
80 NEXT N 
90 Goto 20 


Cada um dos quatro segmentos des- 
ses padrões começa com um ponto em 
um canto do vídeo. O que o laço FOR... 
NEXT faz é contar até o outro lado do 
vídeo, enquanto um padrão de linhas é 
desenhado entre os dois pontos criados 
dessa forma. 

A explicação exata de como os grá- 
ficos funcionam está em um capítulo 
posterior, mas apague as linhas 30 e 40 
e você terá uma idéia geral do que 
acontece. 

Você pode experimentar, ainda, di- 
gitando algumas das linhas responsáveis 
pelo desenho, variando as cores, mu- 
dando os STEP na linha 10 e excluin- 
do o GOTO na linha final, Em minutos 








- mas seu padrão de formas €e cores é sempre cambiante. 


você pode criar centenas de padrões di- 
ferentes, um verdadeiro caleidoscópio 
de formas e cores. 

Ao fazer tudo isso, você não estará 
só criando belas imagens no vídeo. Vo- 
cê estara também se familiarizando com 
uma das mais uteis “'ferramentas"”” do 
programador. 


Como devo proceder para manter | 
um registro de todas as variáveis usa- 
das em meus programas, sem me per- 
der entre tantos Xs e Ys? 

Uma forma de evitar o uso desorde- 
nado de variáveis em um programa é 
dar-lhes nomes que lembrem o que elas 


| representam (nomes mnemônicos). Por 
| exemplo, se uma variável é usada pa- 


ra armazenar o número de espaçona- 
ves abatidas em um jogo, podemos 
"“batizá-la”” de NAVES. 

E fácil manter um registro de variá- 
veis num programa curto. No caso de 
programas mais longos, convém expli- 
citar mais claramente certas funções. 
Assim, utilize FOR LINHA = ... e FOR 
COLUNA = ... (se você estiver colo- 
cando coisas na tela) em vez de FOR 
X = «a eFORY =... 

Alguns computadores, como o 
TR5S-80 e o Apple Il, reconhecem ape- 
nas as duas primeiras letras de uma va- 
rável, descartando as demais. Neste 
caso, tente utilizar iniciais que funcio- 
nem como abreviaturas adequadas, co- 
mo T para “tempo”, RC para “recor- 





| de”, L para “linha””, e assim por diante. 
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COMO O COMPUTADOR É CAPAZ 


DE REPETIR TRECHOS DE UM PROGRAMA 


A capacidade de repetir de forma 
controlada o mesmo trecho de um 
programa pode ser encontrada em to- 
dus as linguagens de programação. 
No BASIC, a programação de laços 
é muito facilitada pelos comandos 
FOR, STEP e NEXT, explicados nes- 
ta lição; porém eles não são es- 
senciais. 

E possível programar laços de re- 
petição de outro modo, simplesmen- 
te usando-se uma varidvel contado- 
ra e uma linha com a declaração (ou 


comando) IF. 

Dessa forma, a programação dire- 
ta de repetições exemplifica de mo- 
do mais claro e objetivo a maneira 
que o computador usa, internamen- 
te, para repetir trechos de um 
programa. 

Suponhamos que o programador 
queira imprimir dez vezes a mesma 
mensagem na tela, usando o coman- 
do PRINT. Inicialmente, é preciso 
definir e igualar a O uma variável con- 
tadora (por exemplo, N). Em segui- 


da, a cada repetição do laço, essa va- 
riável é incrementada, somando-se o 
numero | ao valor anterior (este nu- 
mero corresponde, no caso, ao valor 
STEP no comando FOR). Finalmen- 
te, uma linha adicional do programa 
deve testar se esse valor de N é maior 
do que 10. Se não for, o laço será re- 
petido por meio de um comando GO- 
TO e enviará o programa para trás. 
Se for maior do que 10, o programa 
terminará ou prosseguirá para outro 
trecho. 











Os videogames para microcomputa- 
dores, como o Space Invaders, não te- 
riam nenhuma graça se a movimentação 
e os disparos do canhão laser não pu- 
dessem ser controlados pelo jogador si- 
multaneamente com o desenrolar do jo- 
go. Esse tipo de controle através do te- 
clado ou do joystick é uma caracteristi- 
ca de todos os jogos de ação, mesmo os 
mais simples. 

O elemento mais importante dessa 
técnica de programação é como fazer 
para que o computador perceba auto- 
maticamente quando uma tecla qual- 
quer é pressionada, sem que seja neces- 
sário acionar todas as vezes as teclas 
< ENTER> ou <RETURN>. Feito 
isso, O programa pode tomar decisões 
sobre que gráfico animar, que “disco 
voador” destruir, etc. Outro aspecto es- 
sencial é que, enquanto o jogador não 
acionar os controles de jogo, o compu- 
tador poderá se dedicar à movimenta- 
ção continua de gráficos e figuras sobre 
a tela, usando as técnicas aprendidas na 
última lição de programação de jogos. 


fu 


— Jogos de ação dependem da capacidade 
= do jogador em controlar os 
movimentos na tela. Veia como fazer 
isso e aprenda a disparar mísseis, 
integrando tudo num jogo divertido.., 



















COMO DETECTAR TECLAS PRESSIONADAS 


Em princípio, todos os micros usam 
o mesmo método para detectar se uma 
tecla foi pressionada. Mas, como os co- 
mandos do BASIC para essa função não 
foram padronizados, há uma grande va- 
riabilidade entre os diversos tipos de 
computadores. 


] 
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Para a maioria dos computadores 
que utilizam o interpretador da lingua- 
gem Microsoft BASIC (adotada nos mi- 
cros da linha TRS-80, Sinclair e MSX), 
a função utilizada para detectar se uma 
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tecla foi pressionada chama-se INKEY$. 
Ão encontrar essa função em um pro- 
grama, o computador executa uma 
“varredura” do teclado, para ver se al- 
guma passou do estado de desligada pa- 
ra ligada, e retorna o caractere ao pro- 
grama através da função INKEYS. Se 
nada foi pressionado, a função volta 
com um valor “'vazio” 
Por exemplo: 
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20 CLS 

30 LET AS=INKEYS:IF AS="" THREN 
GOTO 30 

40 PRINT €269,"0PA!” 


20 CLS 
30 IF INKEYS="" THEN GOTO 30 
dO PRINT AT 11,14;"Ai!” 


a 


20 CLS 

30 LET AS=INKEYS: IF AS="" THEN 
GoTo 30 

40 LOCATE 18,11:PRINT "Ui 1!” 


E APRENDA A DETECTAR SE 
UMA TECLA FOI PRESSIONADA 

DISPARE SEU MÍSSIL 
E COMO CONTROLAR UMA 
FIGURA EM MOVIMENTO 








Execute O programa e pressione qual- 
quer tecla, à exceção de <CAPS 
SHIFT > ou <SYMBOL SHIFT 1> 
(nos Sinclair), <BREAK> ou 
<SHIFT> (nos TRS-80) ou <CTRL 
STOP> ou <SHIFT> (no MSX). O 
computador vai exibir um “grito de 
dor” no meio da tela. O programa fun- 
ciona da seguinte maneira: 

A linha 20 limpa a tela. A linha 30 
faz com que o computador espere até 
que uma tecla seja acionada para conti- 
nuar o programa. Note que não há es- 
paços entre as aspas. Por causa disto, 
a linha 30 quer dizer: “'Se 
INKEY$ = nada, ou se nenhuma tecla 
está sendo pressionada, cheque nova- 
mente”. E muito importante ter o 
IF...THEN GOTO 30 porque de outra 
forma o computador verificaria apenas 
uma vez o teclado e só por uma fração 
de segundo. 

Assim que uma tecla é acionada, 
INKEY$c igualado à tecla. Por exem- 
plo, se “3” é pressionado, então 
INKEY$=*'3"". Isso basta para que a 
linha 40 imprima “Ai!” na tela. 

Na maioria dos jogos você deve pres- 
sionar uma tecla para mover um tanque, 
uma míssil, etc. Se você mudar a linha 
40, verá como isto é feito (no TK-85 use 
um “D* maiúsculo): 


40 IF AS="D" THEN PRINT €264,"H 
UM, ISS0 E BOM!” ELSE PRINT 826 
9."0PA!”" 


40 IF INKEYS="d” THEN PRINT 
AT 11,9;"Hum, isso e bom!”: 
STOP 

50 PRINT AT 11,14;"Ai!” 


a 


20 CLS 

30 LET AS=INKEYS: IF AS="" THEN 

GOTO 30 

40 IF A$="D”" OR AS$="d” THEN LOC 
ATE 10,11:PRINT "“mmm... isso é 

bom !": END 

50 LOCATE 18,11:PRINT "Ui |!” 





A linha 40 agora verifica se a tecla 
“D' foi pressionada, ou seja, se 


RR 


E CONSTRUA BLOCOS GRÁFICOS 
] DESTRUA O INIMIGO 
LA BASES DE MÍSSEIS 
E A AUTO-REPETIÇÃO 
E  COMOMONTARALVOS MÓVEIS 


INKEYS$é igual a “D"' ou a “'d””. Se não 
for, O programa para os micros da linha 
Sinclair, que não têm a declaração EL- 
SE, vão ignorar a linha 40 e passar pa- 
ra a linha 50. Qualquer outra tecla di- 
ferente de '“'D”” mostrará, quando pres- 
sionada, a segunda mensagem de “rea- 
ção emocional”. Nos micros de outras 
linhas, o IF... THEN...ELSE permite 
programar em uma única linha as duas 
alternativas. 

Existem mais duas exigências impor- 
tantes nesse programa. A primeira é que 
o “D"” ou “d” precisa estar entre aspas, 
ou o computador o interpretará como 
uma variável. A segunda vale apenas pa- 
ra o TK-90X: nessa linha de micros, 
deve-se usar um “d” minúsculo; caso 
contrário você deve pressionar < CAPS 
SHIFT > e ''d'' para que o programa 
funcione. 

Tanto nesse programa quanto no an- 
terior é possível notar que todos os com- 
putadores utilizam exatamente a mesma 
técnica de investigação do teclado. Ape- 
nas a maneira de colocar uma mensa- 
gem no meio da tela é diferente para ca- 
da um. 





; DISPARE SEU MÍSSIL 


Agora você verá que a partir da de- 
tecção do pressionamento de uma tecla 
usando o IF INKEYS$ = “tecla” é mui- 
to fácil disparar um míssil ou mover 
uma base de foguetes. Este programa 
dispara um míssil de uma base quando 
a tecla ““F”” é acionada: 

20 CLS 

30 PRINT 6397," 444" 

40 LET K$=INKEYS:IF K$=""THEN G 
OTO 40 

50 IF KS="F”* THEN LET M=334á ELS 
E GOTO 40 

60 PRINT €M,"1” 

70 PRINT €M+32," ” 

BO LET M=M-32 


90 IF M>20 THEN GOTO 60 
100 GOTO 20 


10 CLS 


20 PRINT 6797," 444" 
30 KS=INKEYS : IF K$="" GOTO 30 





dO IF K="F” THEN M=374 ELSE 
GOTO 30 

50 PRINT eM, CHRS (94); 

60 PRINT eM+64," "; 

70 M=M-64 

80 IF M>0 GOTO 50 

90 GOTO 10 





Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúsculas: 

20 CLS 

30 PRINT AT 21,14;" ela” 

40 IF INKEYS="" THEN GOTO 40 
50 IF INKEYS<>D"£" THEN GOTO 40 
55 LET y=20 

60 PRINT AT y,15;"7" 

70 LET y=y-1 

75 PAUSE 1 

BO PRINT AT v+1,15;" ” 

90 IF v>0 THEN GOTO 60 


1] sá 

20 CLS 

30 LOCATE 17,20:PRINT " ly” 

40 LET KS=INKEYS: IF K$="" THEN 
GOTO 40 

50 IF KS="F” OR KS$="£”" THEN LET 
M=20 ELSE GOTO 40 

60 LOCATE 18,M:PRINT” * 

70 LOCATE 16B,M+1:PRINT " * 

80 LET M=M-1 

90 IF M>0 THEN GOTO 60 

100 GcoTo 20 


A linha 30 imprime uma base de mis- 
seis formada de três símbolos (no Sin- 
clair e no MSX, três simbolos gráficos), 
na parte mais baixa da tela (ultima 
linha). 

Na linha 40, LET K$= INKEYS é 
muito importante, visto que você quer 
checar se a tecla foi pressionada várias 
vezes durante o programa. Esta não fun- 
cionaria sem essa declaração. O compu- 
tador se recorda do valor de 
INKEYS apenas por uma fração de se- 
gundo e, se você não checar 
INKEYS suficientemente rápido, ele po- 
de esquecer que a tecla foi pressionada. 

Mas, você pode também fazer com 
que ele se lembre do que foi teclado dan- 
do um nome, KS$, à tecla que foi pres- 
sionada e checando mais tarde (versão 
para a linha TRS), ou dando um novo 
comando INKEYS. 

A linha 50 verifica se Fº" foi pres- 
sionado, Se não, o programa volta à li- 
nha 40 e continua a varrer o teclado. 
“M"” é a posição do míssil depois de ter 
sido disparado. 

A linha 60 imprime o míssil na tela 
e a linha 70 se encarrega de apagá-lo de 
suas posições anteriores. 

A linha 80 faz o míssil se deslocar pa- 
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ra cima na tela, e a linha 90 evita que 
o computador tente imprimir o míssil 
numa posição fora do vídeo, o que pro- 
vocaria uma mensagem de erro. A pri- 
meira posição de tela tem o número O, 
e o computador não pode imprimir na- 
da em uma posição de número menor 
que 0. Quando M=0 o programa é rei- 
niciado. A técnica a ser utilizada para 
fazer o míssil subir vai depender, ago- 
ra, do formato da tela do computador 
utilizado. 


T 

A linha 80 subtrai um numero cons- 
tante N da posição anterior do missil 
(variável M), de maneira que ele avan- 
ça uma linha em direção ao topo da te- 
la a cada vez que é impresso. Esse nú- 
mero vale 32 para os micros compatíveis 
com o TRS-Color, pois há 32 colunas 
na tela do computador. Já para o 
TRS-80, o número é 64. 


A linha 80 subtrai 1 da posição ante- 
rior do míssil, pois o comando de posi- 
cionamento utilizado, o PRINT AT, 
identifica as coordenadas (linha, colu- 
na) onde serão exibidos os gráficos. As- 
sim, a coluna é mantida constante, pa- 
ra o míssil subir “reto”, na coluna 15, 
coque varia é Y, ou a altura dele (lem- 
bre-se de que Y=0 está no topo da te- 
la, e não embaixo. 


O comando de posicionamento é o 
LOCATE, que dá as coordenadas para 
posicionamento, A linha 80 tem por 
função diminuir em 1 o valor anterior 
do míssil (variável M), para que ele se 
desloque para cima, na mesma coluna 
(constante 18). 


MOVIMENTOS SOBRE A TELA 





Da forma que está, O programa da 
base de mísseis é bastante limitado pa- 
ra um jogo de “artilharia””, mas, impri- 
mindo movimento lateral à base conse- 
guiremos melhorá-lo um pouco. Veja- 
mos como fazer Isso: 


nm MBRRERS Ss 


20 CLS 

30 LET P=39/ 

40 PRINT €P,CHARS (143) +CHRS (140) 
+CHRS$ (128) +CHR$S (140) +CHRS (143) 

50 LET KS=INKEY$S:IF K$="" THEN 
Goto 50 

60 IF KS="E” 
o 90 


THEN LET P=P-1:GOT 


?O0 IF KS$="D” 
O 90 

BO GOTO 50 
90 IF Pp<384 OR P>411 THEN GOTO 
50 

100 GoTo 40 


A linha 30 determina a posição ini- 
cial da base, e a linha 40 coloca o missil 
naquela posição. 

A linha 50 verifica o teclado, fazen- 
do o computador esperar até que uma 
tecla seja pressionada. 

A linha 60 investiga se “LL” foi pres- 
sionado. Se foi, ela move a base uma 
posição para a esquerda, subtraindo 1 
do número que determina a posição da 
base. A linha 70 confere se “Rº' foi 
pressionado e nesse caso muda a posi- 
ção da base adicionando | à coordena- 
da. A linha 90, finalmente, verifica se 
o programa está dizendo ao computa- 
dor para colocar a base fora da tela — 
em caso afirmativo, o programa retor- 
na à linha 50, 


20 CLS 

30 P=797 

40 PRINTeP,CHAS (32) +CHRS (184)+ 
CHARS (191) +CHRS (180) +CHRS (32) 

50 KS=INKEYS IF K$="" coTo 50 

60 IF KS="L” THEN P=P-1 

7O IF KS="BR” THEN P=P+1 

BO GOTO 50 

90 IF P<767 OR P>828 GOTO 50 

100 GoTO 40 


THEN LET P=P+1:GOT 


O programa para o TRS-80 funcio- 
na de modo idêntico ao programa para 
o TRS-Color. Note que os caracteres 
gráficos têm símbolos diferentes, bem 
como as coordenadas de posicionamen- 
to dos comandos PRINT &. 


Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúsculas. Além disso, ponha os co- 
mandos LET da linha 80 em duas linhas 
separadas. 


30 CLS 

40 LET x=15 

50 LET v=13 E 

60 PRINT AT y,x;" wlo”" 

70 IF INKEY$="" THEN GOTO 70 
BO LET lx=x: LET ly=y 

90 PRINT AT ly,1lx;” e 


100 IF INKEY5="q” THEN STOP 
110 IF INKEYS="w” THEN LET vy= 
V=1 

120 IF INKEY$="z" THEN LET vy= 
y+1 

130 IF INKEYS="a” THEN LET x= 
- ag | 

140 IF INKEYS$="3s” THEN LET x= 
x+1 





Posso escolher qualquer tecla para 
operar os controles de um jogo no mi- 
crocomputador? 

Sim. Tudo o que você tem a fazer 
é mudar os caracteres nas linhas do 
programa que testam qual foi a tecla 
pressionada e detectada por INKEYS. 
Mas cuidado: o que parece ser bastan- 
te lógico na teoria às vezes funciona 
mal na prática. Por exemplo, usar as te- 
clas E, D, C, B para representar esquer- 
da, direita, em cima e embaixo, dificul- 
ta as ações do jogador. Por isso, 

| costumam-se usar as teclas de movi- 
mentação do cursor, principalmente 
nos computadores onde elas estão 
aglomeradas no mesmo ponto do tecla- 
do, ou presentes em pares complemen- 
tares. Outra dica é usar À e Z, para mo- 
vimentar para cima e pata baixo, e K 
e L para direita e para esquerda, pois 
ocupam posições opostas no teclado. 

' Jãa barra de espaços é muito boa pa- | 
ra efetuar disparos, pois o polegar po- 
de se apoiar nela. | 





150 IF x<l OR x>29 THEN LET x 
=1x 

160 IF y<l OR vy>20 THEN LET y 
-1Yy 

170 GOTO 60 


As linhas 40 e 50 estabelecem a posi- 
ção inicial da base de mísseis, na 13º li- 
nha da tela, e quinze espaços à esquer- 
da. A linha 60 mostra a base na tela. 

A linha 70 faz o computador esperar 
até que alguma tecla seja impressa. Se 
foi, a base é movida. 

As linhas 80 e 90 ''perseguem”” a ba- 
se de misseis em movimento, colocan- 
do três espaços em branco sobre sua úl- 
tima localização; de modo a apagá-la. 
Como a linha 60 está dentro do laço de 
repetição e sempre vem antes da linha 
90, a base é sempre impressa em sua no- 
va posição antes que a posição antiga se- 
ja apagada. 

A linha 100 termina o programa se 
a letra Q (de quit, em inglês, que signi- 
fica abandone) for pressionada. 

A linha 110, por sua vez, verifica se 
a tecla “W” foi acionada, subtraindo 
| do valor de “Y” em caso afirmativo. 
O efeito disso é a movimentação da ba- 
se uma linha para cima. 

As linhas 120 a 140 operam de for- 
ma similar. A linha 120 move a base pa- 
ra baixo se “Z”” é pressionado. 

A linha 130, move para a esquerda, 














caso “A seja acionado, e a 140 para 
a direita, ao se pressionar “S”. A linha 
150 evita que a base seja colocada fora 
das laterais da tela. 

A linha 160 impede que a base saia 
por cima ou por baixo da tela. Neste ca- 
so, fazer Y = LY resolve o problema, A 
linha 170 fecha o laço, reiniciando to- 
do o processo. 


a 


30 CLS 

40 LET X=17 

50 LET Y=-20 

60 LOCATE X,Y:PRINT "ska" 

70 AS=INKEYS:IF A$="" THEN GOTO 
70 

BO LET LX=X:LET LY=Y 

90 LOCATE LX,LY:PRINT” ” 

100 .IF AS=CHR$S (27) THEN END 

AS=CHRS (28) THEN X=X+1 

AS=CHRS (29) THEN X=X-1 

" AS=CHRS (30) THEN Y=Y-1 

AS=CHR$S (31) THEN Y=Y+1 

X<0 OR X>36 THEN X=LX 

Y<O OR Y>20 THEN Y=LY 

GOTO 60 


O programa para a linha MSX é bas- 
tante compacto e elegante. A linha 60 
coloca a base em posição inicial (três ca- 
racteres gráficos), que é definida nas li- 
nhas 40 e 50, ou seja, na linha 20 e na 
coluna 17 (no meio da última linha da 
tela). A linha 70 detecta se alguma tecla 
foi pressionada. 

Se alguma tecla foi pressionada, o 
programa armazena em LX e LY as 
coordenadas da última posição da base 
(X e Y), para usá-las posteriormente (li- 


| Por que o meu programa “bomba” 
| (isto é, falha) se, num jogo qualquer, 
a figura que está sendo movimentada 
atinge a borda da tela? 
Provavelmente porque um dos va- 
lores que controlam o posicionamento 
da impressão do gráfico na tela tornou- 
se muito grande ou muito pequeno, ex- 
cedendo os limites da tela. Portanto, 
| verifique de novo as linhas que fazem 
essa tarefa, caso você obtenha alguma 


mensagem de erro do computador, 
neste sentido. Por precaução, é sem- | 


pre recomendável testar os valores de 
| posicionamento antes de imprimir algu- 
ma coisa na tela: se eles excederem os 
| limites, podem ser corrigidos para fica- 
rem dentro da tela. 





nha 80), e apaga a base nessa posição, 
por meio da linha 90. 

As linhas 100 a 140 detectam se a te- 
cla apertada foi uma das seguintes: fle- 
cha para cima, flecha para baixo, flecha 
para esquerda e [lexa para direita (teclas 
de controle do cursor), que são identi- 
ficadas pelos seus códigos respectivos 
(29, 28, 30 e 31). O jogo termina quan- 
do a tecla CLEAR (código 26) tiver si- 
do pressionada. , 

As linhas 150 e 160 verificam se as 
bordas da tela foram ultrapassadas. Se 
foram, retornam à posição da base pa- 
ra as últimas coordenadas (LX e LY). 

Finalmente, a linha 60 faz o ciclo se 
repetir, para a próxima pressão à tecla. 


FACA O SEU JOGO 





Agora você já tem alguns blocos a 
partir dos quais podem ser montados vá- 
rios jogos. O exemplo abaixo mostra co- 
mo usá-los para desenvolver um jogo 
bem simples, em que um canhão móvel 
dispara mísseis em direção a um alvo 
(uma estrela): 


20 CLS 
30 FOR N=1 TO 


40 LET P0=430 
50 LET BS=CHAS (143) +CHRS (140) +C 


100:NEXT N 


 HR$ (128) +CHRS (140) +CHRS (143) 


60 LET A=RND(30)+64 

70 PRINT €A,"*" 

B0 LET LP=PO 

90 PRINT €PO,BS 

100 IF PEEK(340)=247 THEN LET P 
O=PO-l 

110 IF 

O=PO+1 

120 IF 

T PO=LP 
130 LET KS=INKEYS 

140 IF KS$="F* THEN LET M=PO0-30 

ELSE GOTO 80 

150 PRINT €M,"T”; 

160 PRINT €M+32,” ”; 

170 LET M=M-32 

180 IF M=A THEN GOTO 20 

190 IF M>0 THEN GOTO 150 ELSE P 
RINT €M+32," *; 

200 GOTO BO 


PEEK(338)=247 THEN LET P 


RO<415 OR P0>444 THEN LE 


20 CLS 
30 FOR N=1 TO 100:NEXT N 
40 P0=8B00 


50 BS$=CHRS (32) +CHR$ (184) + 
CHARS (191) +CHRS (180) + 
CHR$ (32) 


60 A=RAND(60)+2 
70 PRINTEA,"*"; 
BO LP=PO 

90 PRINTEPO,BS; 


100 IF PEEK(14344)<>20 THEN  PO= 
PO-] 

110 IF PEEK(14368)<20 THEN PO= 
PO+1 

120 IF POo</67 OR P0>828 THEN 
PO=LP 

130 KS=INKEYS 

140 IF KS$="F” THEN M=P0-62 ELSE 
GoTo BO 

150 PRINTEM,CHRS (94); 

160 PRINTEM+64," *; 

170 M=M-64 

180 IF M=A GOTO 20 

190 IF M>0 THEN GOTO 150 ELSE 
PRINT EM+64," ”"; 

200 GOTO 80 


Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúsculas: 


20 CLS 

30 PAUSE 25 

40 LET x=15: LET vy=21 
50 LET BS=" ela ” 
60 LET a=INT (RND*28)+2 
70 PRINT AT 2,a;"*" 

BO LET xx=x 

90 PRINT AT vy,x;BS 


100 IF INKEYS="2z" THEN LET x= 
x-1 

110 IF INKEYS="x" THEN LET x= 
x+1 

120 IF x<0 OR x>27 THEN LET x 
=KX 

140 IF INKEYS<>"f£" THEN GOTO 
80 

145 LET m=y-1 

150 PRINT AT m,x+2;"T7" 

160 PRINT AT mt1,x+2;" " 

170 LET m=m-1 

180 IF m=2 AND x+2=a THEN 

GOTO 20 


190 IF m<>1l THEN GOTO 150 
195 PRINT AT mt1l,x+2;" " 
200 GOTO 80 


a 


20 CLS 

40 LET X=17:LET Y=20 

50 LET BS=" em " 

60 LET A=INT(RND(1)*36)+2 

70 LOCATE A,0:PRINT “*" 

BO LET XX=X 

90 LOCATE X,Y: PRINT BS 

95 LET AS=INKEYS: IF AS="" THEN 
GOTO 95 

100 IF AS=CHRS (28) THEN LET X=X 
H1 


110 IF AS=CHRS (29) THEN LET X=X 
1 

120 IF X<O OR X>35 THEN LET X=X 
X 

130 IF AS<> ”"” ” THEN GOTO 80 
140 LET M=Y-1 

150 LOCATE X+2,M:;PRINT "EB" 

160 LOCATE X+2,M+1:PRINT ”* * 
170 LET M=M-1 

180 IF M=0Q0 AND X+2=A THEN GOTO 
20 











190 IF M<>0 THEN GOTO 150 
200 LOCATE X+2,M+1: PRINT” ” 
210 GoTo 80 


Quando você executar O programa, 
verá uma estrela perto do topo da tela. 
As teclas Z e X movem a base de fogue- 
tes para a esquerda e a direita, e a tecla 
F dispara o míssil para destruir a estre- 
la em sua posição. 

Pense no programa como tendo três 
partes: uma, até a linha 70; outra, da 80 
até a 120; e a última, da 130/140 até a 
200. 

As linhas que vão de 130/140 até 200 
são similares ao programa anterior que 
dispara o missil, 

As variáveis e os GOTO foram mu- 
dados, mas a única linha adicionada foi 
a 180. Ela verifica se o míssil e a estrela 
estão no mesmo lugar. O programa re- 
começa em caso positivo. 

A porção central, da linha 80 a 120, 
é uma versão compacta do programa 


e 


“Movimentos Sobre a Tela”. Os PEEK 
no programa para o CP400 verificam se 
Z ou X foram acionados e alteram PO 
de maneira apropriada, 

A primeira parte do programa tem 
várias funções. A linha 30 provoca uma 
pequena pausa antes que o programa 
continue. Isso é importante quando a li- 
nha 180 fecha o laço no fim do progra- 
ma. As linhas 40 e 50 determinam a po- 
sição inicial da base e definem sua 
forma. 


MELHOR MOVIMENTAÇÃO 





Pressionar a tecla que move a base 
para a direita ou para a esquerda toda 
vez que se precisa deslocar figuras é bas- 


rante cansativo. Então, usualmente 
montamos um mecanismo de auto- 
repetição. 


Alguns micros, como os da linha 
MSX, possuem auto-repetição em todas 
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as teclas; por isso o programa dado aci- 
ma não necessita qualquer modificação: 
basta ficar pressionando a tecla de co- 
mando para baixo, que a base se move 
automaticamente. 

Já para os computadores que não dis- 
põem desses recursos, temos que nos sa- 
tisfazer com o INKEYS, mesmo. Mas é 
difícil programar movimentos continuos 
usando INKEYS. 

Um modo de se resolver esse proble- 
ma é ilustrado a seguir. 


CLS 

LET BLS$=CHRS (128) 

LET P0=238 

PRINT €PO,BLS 

LET LP=PO 

IF PEEK(340)=247 THEN LET PO 
=P0-1:GOTO 120 

B0 IF PEEK(338)=247 THEN LET PO 
=P0+1:GOTO 140 

90 IF PEEK(338B)=251 
=P0-32:GOTO 150 

100 IF PEEK(342)=253 THEN 
0=P0+32:GOTO 150 


THEN LET PÔ 


LET P 


110 GoTo 70 

120 IF(LP AND 31)=0 THEN LET PO 
Lp 

130 GoTo 150 

140 IF(PO AND 31)=0 THEN LET PO 
=LP 

150 IF P0>510 OR POSO THEN LET 


PO=LP:GOTO 70 

160 PRINT GLP,”" "; 
170 PRINT €Po,BLS; 
180 GOTO 60 


CLS 
BLS=CHRS (191) 
P0=540 
PRINTEPO,BLS; 
LP=PO 
70 IF PEEK(14344)<>20 THEN 
PO+1:GOTO 120 
BO IF  PEEK(14368)<20 THEN 
PO-1:GOTO 140 
IF PEEK(14352)<>0 THEN 
P0-64:GOTO 150 
IF PEEK(14400)<>0 THEN 


PÓ= 


POÓ= 


90 PÔ 


100 PO= 


P0+64:GOTO 150 
110 GOTO 70 
120 IF (LP AND 63)=0 THEN PO=LP 
130 GOTO 150 
140 IF (PO AND 63)=0 THEN PO=LP 
150 IF P0>1022 PR PO<O THEN PO= 


LP:GOTO 70 
PRINTEOLP,” "; 
PRINTEPO,BLS; 
GOTO 60 


160 
170 
180 

Ao executar este programa você terá 
um bloco posicionado no centro da te- 
la. O programa permite que você o mo- 
va para cima e para baixo, para a direi- 
ta e para a esquerda. 
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Um dos problemas de se aprender có- 
digo de máquina é que você precisa en- 
tender um pouco da teoria dos numeros. 
Não é uma tarefa tão dificil quanto po- 
de parecer. Se você sabe contar até 16, 
não terá qualquer dificuldade. Mas, ini- 
cialmente, é preciso aprender a contar 
até 2. 


POR QUE A BASE 10? 





Mesmo a pessoa mais avessa a mate- 
mática não tem qualquer dificuldade pa- 
ra dizer as horas ou acompanhar O re- 
sultado de uma partida de futebol. O 
uso dos números faz parte do dia-a-dia 
de tal forma que nunca nos preocupa- 
mos com a maneira com que eles fun- 
cionam. 

No mundo ocidental usamos habi- 
tualmente um sistema numérico basca- 
do no número 10, Isto significa que co- 
meçamos uma contagem usando os nú- 
meros de 0 a 9. Se precisarmos de uma 
grandeza maior do que 9 (por exemplo, 
10), usamos os digitos disponiveis. As- 
sim, colocamos o | na ''casa”” da es- 
querda e o O à sua direita. 

Este é chamado um sistema de nume- 
ração de base 10 ou decimal, porque o 
valor do dígito é multiplicado por 10 a 
cada posição que contamos, a partir da 
direita. Por exemplo, o número 3275 va- 
le5S + 7x10 + 2x 10x 10 + 3x 10x 
10x 10 ou seja 5 + 10+ 200 + 3000, Ca- 
da dígito multiplica seu valor absoluto 
por 10 a cada vez que é movido uma po- 
sição mais à esquerda. Todo sistema que 
usa esse método para representar nume- 
ros é chamado de posicionat. 

Tudo isso parece óbvio porque faze- 
mos esses cálculos todos os dias, sem 
pensar muito neles. Entretanto, existem 
outros sistemas de numeração, diferen- 
tes do decimal, como por exemplo, os 
que são usados nos modernos micros. 





SISTEMAS ANTIGOS E NOVOS 


Os antigos babilônios tinham um sis- 
tema de numeração baseado no núme- 
ro 60. Os vestígios disso podem ser vis- 
tos nas nossas medidas de tempo e de 
ângulos: existem 60 segundos em cada 
minuto, 60 minutos em cada hora, as- 














Os computadores contam &m binário, 
como se tivessem milhões de mãos com 
um dedo só. Para aprender a programar 
em código de máquina, você deve 
conhecer esse sistema. 





sim como 60 minutos de arco em um 
grau e 6 vezes 60 graus — ou seja, 360 
— num circulo completo. 

Você pode contar até 59 segundos, 
mas, se adicionar mais um segundo a es- 
se número, terá um minuto e recomeça- 
ra a contar os segundos do O. E quando 
tiver 59 minutos e 59 segundos, um se- 
gundo a mais fará uma hora, sendo ze- 
rados os minutos e segundos. 

Resquícios de numeração em outras 
bases podem ser encontrados em velhos 
sistemas de medidas da Inglaterra. Exis- 
tem 8 pintas em cada galão, 12 polega- 


das em cada pé e 16 onças em cada li- 
bra. Outra base que ocorre com fre- 
quência é o número 12. Temos 12 pole- 
gadas em um pé, 12 unidades em uma 
dúzia e 12 dúzias em uma grosa. A base 
12 era muito usada tanto para dinheiro 
como para bens, devido à facilidade 
com que se divide por 2, 3, 4ou 6. Cer- 
tas coisas tinham que ser divididas en- 
tre várias pessoas, e a base 12 tornava 
as transações muito mais simples. O nuú- 
mero 10, ao contrário, só é divisível por 
2e5. Vemos, portanto, que muitas ve- 
zes é conveniente usar outra base que 


nã 
pl 
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não 10. Uma libra de peso, por exem- 
plo, pode ser dividida em onças por su- 
cessivas divisões ao meio, 





CONTANDO COM NOVE DEDOS 


Não há nenhuma razão que impeça 
o uso de um sistema baseado em qual- 
quer número escolhido ao acaso. Se ti- 
véssemos nascido, todos, com 1 dedo a 
menos em uma das mãos, provavelmen- 
te usaríamos um sistema ''nonário”' ou 
seja, de base 9. Contariamos normal- 


O OSISTEMA DECIMAL 
E OUTROS SISTEMAS NUMÉRICOS 





E — cOMOCONTAREMBASE9 
E CONTAS EMDIFERENTES BASES 
E CONVERSOR PARA 





Os dez dedos das mãos levaram 

o homem a contar usando a base 10. 
Auxiliares de cálculo simples, como o 
ábaco, ou contador, são um 

modelo mecânico de nossos dedos. 


mente até 8 e, para obter o número se- 
guinte, colocariamos o 1 numa posição 
mais à esquerda e o O na posição à di- 
reita. Ou seja, o decimal 9 seria repre- 
sentado no sistema nonário pelo nume- 
ro 10, 

Da mesma forma, se somássemos 1 
a 18, teriamos 20; e 100 se somássemos 
la 88. 

Como se pode ver pelo exemplo aci- 
ma, as regras da aritmética se aplicam 
sempre, não importando qual seja a fa- 
se do seu sistema de numeração. Você 
pode tentar operações simples num sis- 
tema de base 7 ou 8, e assim por diante. 
Qualquer que seja a base, as regras ma- 
temáticas são sempre válidas. 

No nosso sistema nonário, a cada ca- 
sa para a esquerda que o número deslo- 
ca, seu valor absoluto é multiplicado por 
nove. Dessa forma, 3275 em nonário é 
igualaS + 7x9 + 2x9x9 + 3x9Xx 
9x9, ou seja, 2417 em decimal. Você 
deve ter notado que não existe o nume- 
ro 9 no sistema nonário., Ele é represen- 
tado por 10. Assim, seria correto dizer 
que, em nonário, 3275 € igual a 5 + 
7x 10 + 2x 10x 10 + 3x 10x 10x 10. 

Com um pouco de agilidade mental 
você pode fazer alguns cálculos simples 
em nonário. Por exemplo; 99x 9 dá 89] 
em decimal. Em nonário, o número 99 
é representado por 120; isto é: |x 9x9 
+ 2x9, ou 81+18. E 9 é 10. 

Assim, em nonário, 99x 9 se traduz 
por 120x 10 ou 1200, que é 1x 9x 9x9 
+ 2x9x9, 891 em decimal. 

Qualquer adição, subtração, multi- 
plicação ou divisão de números noná- 
rios funcionará normalmente. Confira 
você mesmo. Só é preciso um pouco de 
cautela. Lembre-se que 16 em decimal 
é 17 em nonário. 





PROBLEMAS DAS BASES ACIMA DE 10 


Lidar com sistemas numéricos de ba- 
se maior que 10 é um pouco mais dificil 


“TODAS AS BASES 
“O SISTEMA BINÁRIO 


E | —  BITSEBYTES 
E "COMO O COMPUTADOR 
FAZ SOMAS 






do que vimos até agora. Para maneja- 
los mais facilmente, temos que inventar 
novos números. 

Dessa maneira, se você quisesse em- 
pregar um sistema de base 12, teria de 
inventar números para representar o 10 
e o 11. Em duodecimal, 10 representa 
|x12,ou 12. E Il significa lx 12 + 1, 
ou seja, 13 em decimal. 

O modo mais fácil de aumentar a fai- 
xa dos números é utilizar o alfabeto. O 
10 pode ser A, e o 11, B, A2 seria, as- 
sim, 122; e BA, 142. 


“UM PROGRAMA PARA TODAS AS BASES 





Fazer contas em bases de numeração 
que não sejam decimais pode ser bastan- 
te difícil e cansativo. Assim, apresenta- 
mos aqui um programa que faz contas 
em qualquer base até 36. Quando você 
rodá-lo, ele vai perguntar em que base 
quer trabalhar. Você deve responder em 
decimal. 

A seguir, ele pede um número. Este 
deve ser digitado na base que você sele- 
cionou. Se foi a base 8, não deve haver 
nenhum número acima de 7. E se você 
escolheu uma base acima de 10, os ny- 
meros acima de 9 deverão ser digitados 
por meio das letras do alfabeto, sempre 
maiúsculas. 10 será A, 11, B, 12,€,e 
assim por diante. 

Então, o computador perguntará que 
operação você deseja (+, —,* ou /Te- 
presentando respectivamente soma, sub- 
tração, multiplicação e divisão). Apos 
isso, você deverá digitar outro numero, 
na mesma base do anterior. Se a sua 
operação é divisão, e a resposta não é 
um inteiro, o computador lhe dirá que 
a operação não será realizada. “Divisão 
não exata”, será a mensagem no video, 
Se não; a operação e seu resultado apa- 
recerão na tela na base que você esco- 
lheu para operar. 


“| 


10 CLS 

20 INPUT"BASE (ATE 36)";B 
30 INPUT"NUMERO (INTEIRO) 
40 INPUT"SINAL ";55 

50 INPUT"NUMERO (INTEIRO) 
60 PS=AS:GOSUB 210 

70 XS=STRS (DE) 

B0 P$=B$:GOSUB 210 


";AS 


º BS 
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90 YS5=STRS (DE) 

100 IF 5$="*" THEN X=VAL (XS) *VA 
L(YS) 

110 IF 5$="/”" THEN X=VAL (XS) /VA 
L(YS) 

120 IF 58$="+" THEN X=VAL (XS)+VA 
L(Y$S) 

130 IF 58S8="-" THEN X=VAL (XS) -VA 
L(Y7S5) 

140 IF X<>INT(X) THEN N$="IMPOS 
SIVEL”":GOTO 190 

150 U=B*INT(X/B) : IF X-U>9 THEN 
N$=CHRS (55+ (X-U) ) +N$:GOTO 170 
160 NS=MIDS (STARS (X-U)J +NS,2) 

170 X=INT(X/B) 

180 IF X>0 GoTo 150 

190 PRINT 8257,A59+" "+55+" "+B$S 
"= “NS 

200 END 





UM MODELO PARA NÚMEROS EM 
DIFERENTES BASES 
Às vezes é muito dificil visualizar co- 
| mo funciona um sistema de numeração | 
de base diferente ao de base 10. Afi- 
nal, não é fácil ter que cortar fora al 
guns dedos, ou fazer crescer dedos adi- 
| Cionais nas mãos, de modo que você 
parece obrigado a se satisfazer com o 
que tem! Mas seria possível, por exem- 
plo, grudar dois dedos um no outro com 
fita adesiva, para contar na base 9, ou 
usar dois palitinhos extras de conta- 
gem, para trabalhar na base 12. 

Uma solução mais inteligente seria 
construir o seu próprio ábaco, ou cal- 
culadora de continhas, similar âqueles 
mostrados nas fotos que acompanham 
esta lição. Um ábaco convencional 
imesmo aqueles de brinquedo, para 
criança) pode ajudar e agilizar as con- 
tas no sistema de base 10: assim, vo- | 
cé pode criar um ábaco com tantas bo- 
linhas em cada vareta da moldura quan- 
tas quiser. Não é necessário nem mes- 
mo construir uma moldura cheia de ara- 
mes, mas simplesmente arranjar uma 
série de sulcos paralelos, para conter 
as bolinhas e fazê-las rolar para cima | 
ou para baixo. | 

Não se esqueça de que o número de 
continhas em cada fileira é um a me- 
nos do que a base em que você quer 
trabalhar. Assim, na base 10, você pre- 
cisa de 9 contas, e na base 2, de ape- 
nas uma. Nenhuma bolinha equivale ao 
número zero, em qualquer sistema de 
numeração. Uma bolinha afastada das 
demais significa o número 1, e assim 
por diante. Quando a operação exigir 
mais de 9 bolinhas no sistema decimal, 
zere a fileira de volta, e suba uma boli- 
nha na fileira seguinte (é a operação de 
“vai-um"). 


210 DE=0 

220 IN=0 

230 Y=ASC(RIGHTS(P5S,1)) 

240 IF Y<58 THEN D=Y-48:GOTO 26 
Õ 

250 D=Y-55 

260 DE=DE+D*B" IN 

2/0 PS=LEFTS(PS, LEN(PS)-1) 

280 IN=IN+1 

290 IF LEN(P$S)>20 THEN GOTO 230 
300 RETURN 


Este programa, como esta, roda ape- 
nas nos compatíveis com o TRS-Color. 
Para rodá-lo nos modelos TRS-80, mo- 
difique a linha 190 para: 


190 PRINTES13,AS+" "ass +" 
+ B5+ "= "NS 


10 POKE 23658,8 
20 INPUT "Base (ate 36) ";b 
30 INPUT "Numero (inteiro) "; 
LINE as 
40 INPUT "Sinal ”; LINE s$ 
50 INPUT “Numero (inteiro) "; 
LINE b$ 
60 CLS 
70 LET p$=aS: GOSUB 180 
BO LET x5S=STRS dec 
90 LET pS=bS: GOSUB 180 
95 LET vyS=STR$ dec 
100 LET zS$=aS+sS+yS: LET x=VAL 
z5 
110 IF x<>INT x THEN LET n$=" 
Impossivel realizar a operacao 
1 GOTO 160 
120 LET n$=º* 
130 LET u=INT (x/b): LET u=u*b 
|: IF x-u>9 THEN LET n$=-CHRS ( 
55+ (x-u) )+nS$: GOTO 140 
135 LET nS$=STR$ (x-u)+n$ 
140 LET x=INT (x/b) 
150 IF x>0 THEN GOTO 130 
160 PRINT AT 10,0;aS+sS+b5S;,"= 
E: 
170 STOP 
180 LET dec=0 
190 LET indice=Ô 
200 LET y=CODE pS(LEN pS) 
210 IF vy<5B THEN LET d=y-áB: 
GOTO 220 
215 LET d=-y-55 
220 LET dec=dec+d*b“indice 
230 LET pS-pS(l TO (LEN pS)-1) 
240 LET indice=indice+l 
250 IF LEN p$>0 THEN GOTO 200 
260 RETURN 


ER 
RAS ! 
m 
Nr " k: 

[ 


10 CLS 

20 INPUT "BASE (ATÉ 36)";B 

30 INPUT "NUMERO (INTEIRO) ";AS 
40 INPUT “SINAL ";5S 

50 INPUT "NUMERO (INTEIRO) ";BS 
60 PS$=AS:GOSUB 210 

O XS=STRS (DE) 

80 P$-BS:GOSUB 210 

90 YS=STRS(DE) 

100 IF 5$="*" THEN X=VAL (XS) *VA 
L(T5) 


110 IF S$="/" THEN X=VAL (XKS) /VA 
L(Y5) 

120 IF S$="+" THEN X=-VAL (XS)+VA 
L(Y5) 

130 IF S8$="-" THEN X=VAL (X5) -VA 
L(Y5) 

140 IF X<>INT(X) THEN N$="Opera 
ção imposasível":GOTO 190 

150 U=B*INT(X/B): IF X-U>29 THEN 
NS$=CHRS (55+ (X-U) )+NS:GOTO 170 
160 NS=MIDS (STARS (X-U)J+NS,2) 

170 X=INT(X/B) 

1B0 IF X>0 GOTO 150 

190 LOCATE 0,12:PRINT AS+" "+55 
+" "A+BS+D MAM t4ro P4NS 

200 END 

210 DE=0 

220 IN=0 

230 Y=ASC(RIGHTS(PS,1)) 

240 IF Y<58 THEN D=Y-4B:GOTO 26 
Ú 

250 D=Y-55 

260 DE=DE+D*B”" IN 

270 PS=LEFTS (PS, LEN(PS)-1) 

280 IN=IN+1 

290 IF LEN(PS)>0 THEN GOTO 230 
300 RETURN 
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10 HOME 

20 INPUT "BASE (ATE 36) =>";B 
30 INPUT "NUMERO (INTEIRO) =>" 
AS 

40 INPUT "OPERACAO (+,7,*,/) = 
27:85 

50 INPUT "NUMERO (INTEIRO) =>" 
BS 

60 PS = AS: GOSUB 210 

70 X = DE 

BO PS = B$: GOSUB 210 

90 Y = DE 

100 IF 85 ="*" THEN X =X *Y 
110 IF 5858 ="/" THEN X =X /+% 
120 IF Sg ="+" THEN X=X+7Y 
130 IF S8S$="-" THEN X =X -T 
140 IF X < > INTÃ(X) THENNS 
= "NAO DA": GOTO 190 

150 U = B * INT (X / BB): IF & 
- U > 9 THEN NS = CHAS (55 + ( 
X - U)j) + NS: GOTO 170 

160 N$ = STARS (X - U) + NS 

170 X = INT (X / B) 

180 IF X > O THEN 150 


190 HTAB 10: VTARB 15: PRINT AS 
O 0884” PBS: = *:N5 

200 END 

210 DE = O 

220 IN = O 

230 Y = ASC ( RIGHTS (P$S,1)) 
240 IF Y < 58 THEN D =Y- dB: 
GOTO 260 

250 D= 7 - 55 

260 DE = DE + D * B " IN 


265 IF LEN (PS) = 1 THEN RET 
URN 
270 PS = LEFTS (PS, LEN (P3S) - 
1) 


280 IN = IN + 1 
290 GOTO 230 
300 RETURN 


Se você acha que fazer contas em di- 
versas bases é mais do que pretende sa- 
ber algum dia, note que o computador 
também trapaceia. O programa, na rea- 
lidade, converte os números que você di- 
gitou em decimais, executa a operação 
e reconverte o resultado para a base que 
você escolheu, Ao contrário da mente 
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humana, o computador só consegue fa- 
zer cálculos em decimal, dentro de um 
programa escrito em BASIC, apesar de 
converter os números para binário, 
quando as instruções são traduzidas pa- 
ra código de máquina durante a execu- 
ção do programa. 


| E AGORA, BINÁRIOS | 


Para os computadores digitais, O sis- 
tema de numeração mais apropriado é 
o baseado no número 2. Isso acontece 
porque o computador é composto de 
circuitos eletrônicos que possuem dois 
estados evidentes: ligado e desligado. O 
estado “'desligado" representa o núme- 
ro 0, e o “ligado”, o número 1. E, na 
base 2, estes são todos os números de 
que você necessita para expressar qual- 
quer valor. 

O sistema de numeração de base 2 é 
conhecido como “binário”, Ele é com- 
posto apenas por zeros e uns; todos os 
outros números foram abolidos. Dessa 
forma, se você começar a contar da ma- 
neira habitual, não vai passar de 1. So- 
me laleteráonúmero 1 deslocado 
uma casa para a esquerda, enquanto a 
casa da direita é zerada. Assim, em bi- 
nário, 1+1 = 10. 

Contar de 0 a 8 resulta em 0, 1, 10, 
11, 100, 101, 110,111, 1000, Novamen- 
te, estes números obedecem às leis da 
aritmética. Se você quiser somar 10+ 11, 
deve primeiramente somar os dois nú- 
meros da direita, 0+ 1. A seguir, devem 
ser somados os dois da esquerda, 1+1, 
o que dá 2; só que 2 em binário é 10, 
Assim 10+11 = 10l;ouseja,2+3 = 5. 

Subtração em binário é um processo 
tão direto quanto a soma. O único de- 
talhe a observar é o número que se “le- 
va” para a próxima casa. 

A multiplicação e a divisão são ex- 
traordinariamente fáceis, mesmo para 
seres humanos “normais”. Na realida- 
de, é tão fácil que “até” um computa- 
dor pode fazer essas operações. No pri- 
meiro caso, tudo se resume a multipli- 
car 0x0, que dá 0; Ox 1, que também 
dá 0; ou |x1, que dá 1. 

A divisão é igualmente simples: em 
cada operação, basta decidir se o divi- 
sor está dentro do dividendo uma vez ou 
nenhuma vez. 

Confira você mesmo como os proces- 
sos aritméticos funcionam em binário. 
O painel das páginas seguintes da exem- 
plos de operações para você fazer. 


Qualquer sistema de numeração pode ser 
imitado por um modelo mecânico: 

o relógio, por exemplo, usa a base 60, 
enquanto o ábaco utiliza a base 10. 











BITS E BYTES | 


Os números binários refletem exata- 
mente o que acontece no computador. 
As instruções ou dados que você dá a 
ele são codificados em números biná- 
rios, que, por sua vez, são manipulados 
e armazenados pelos circuitos internos 
do aparelho. Assim, quando você come- 
ça a dominar o sistema binário, come- 
ça também a compreender como funcio- 
na o computador, 

Cada um dos dígitos de um número 
binário é representado eletronicamente 
dentro do computador por um circuito 
ligado ou desligado. Se está ligado, o va- 
lor é 1. Se, pelo contrário, o circuito es- 
tá desligado, o valor é O. Cada dígito é 
conhecido como um bit. 

Esses circuitos são agrupados em uni- 
dades maiores, que representam núme- 
ros também maiores e mais úteis. Em 
quase todos os micros, os bits estão or- 
ganizados em grupos de oito, forman- 
do o que se conhece como um byte. Ca- 
da byte representa, assim, oito dígitos 
binários, de forma que pode armazenar 
qualquer número entre 00000000, ou ze- 
ro, e 11111111, ou 128+64+32+ 16+ 
8+4+2+ 1, que é 255. Números maio- 
res que 255 são representados por dois 
ou mais bytes. 


FRAÇÕES BINÁRIAS 





Todos os programas e exemplos da- 
dos até aqui manipularam números in- 


ADIGAO BINARITA 
1100111 


psiddibods 


10001001 


10001001 





A adição binária funciona a partir da direita. O + 0 dá 0,0 + 1 


dá 1,e 1 + 1 resulta em 10, que é o O 


com “'vai-um” para o próximo dígito. Observe como essas 
E) “operações funcionam na soma realizada acima. 


DECIMAL. 
1100111 
100010 


103 + 34 





teiros. É possível, também, converter 
frações em números binários. 

Por exemplo, 1/2 é 0.1] em binário; 
1/4 é 0.01 e 1/8 é 0.001, Existe um pa- 
drão determinado. Qualquer fração po- 
de ser formada a partir de 1/2s, 1/4s, 
1/8s, 1/16s, etc., da mesma forma que 
qualquer número inteiro pode ser for- 
mado a partir de 1s, 25, 45, 8s, etc. O 
problema é que é mais dificil trabalhar 
com frações binárias porque sempre te- 
mos uma infinidade de Os e 15! 

Quando você converte frações, é me- 
lhor pensar nelas como 0.5; 0,25 e as- 
sim por diante. Desta forma, você po- 
de manipular uma fração como 0.75 co- 
mo sendo 1x0.5+1x0.25, o que sig- 
nifica em binário 0.11. 

O próximo programa permite que vo- 
cê trabalhe com frações binárias sem 
grandes dificuldades: 


10 CLS 

20 PRINT"CONVERSAO DE DECIMAL P 

f BINARIO” 

30 PRINT: INPUT"DIGITE UM NUMERO 
ENTRE 0 E 1 EN 

40 IF N<=0 OR N>=1 THEN 30 

50 N$="0." 

60 FOR T=1 TO 30 

70 N=N*2 


B0 NS=NS+CHRS (48+INT (N)) 

90 N=N-=INT(N) 

100 NEXT T 

110 PRINT 6257, "O NUMERO BINARI 
OE: ” 

120 PRINT:PRINT NS: PRINT 


1011001 


=11001] 


a a e MD 


100110 


SLIBRTRAÇAO BINARIA 











PRINT"OUTRO NUMERO (5/N) 7" 
AS=INKEYS 

IF AS="5" 

IF AS<2"N” 
END 


130 
140 
150 
160 
170 


TREN 10 
THEN 140 


O programa acima, como está, roda 
apenas nos compatíveis com o TRS- 
Color. Para os modelos tipo TRS-80, 
modifique a linha 110 para: 

110 ERRA, "O NUMERO BINARIO 


10 CLS 
20 PRINT '"Conversao de Decim 
al para Binario” 
30 INPUT "Digite um numero en 
tre O e 1º,N 
40 IF N<=0 OR N>=1 THEN GOTO 
30 
45 PRINT ''"Decimal; “;N 
50 LET N$="0." 
60 FOR T=1 TO 16 
70 LET N=N*2+1E-9 
BO LET N$=NS+CHAS (4B+INT N) 
90 LET N=N-INT N 
100 NEXT T 
110 PRINT 
a 
120 PRINT NS 
130 PRINT ***'*'*"Outro numero ( 
S/N)?” 
140 LET AS=INKEYS 
150 IF AS$="S” OR A$="8” 
GOTO 10 
160 IF AS<>2"N” 
THEN GOTO 140 


Tal como está, o programa acima ro- 
da apenas no Sinclair Spectrum 


""*Q numero binario 


THEN 


AND AS<>"n” 


DECIMAL 
1011001 


110011 


100110 : 


A subtração binária é igualmente simples. | — 1d4 0,0 —- 1 


dá 1. Agora, a operação 1 — O dá O e “vai-um” para o 


próximo dígito à esquerda, Os resultados, portanto, não são todos 
exatamente iguais ao da mesma operação no sistema decimal. 











(TK-90X). Para rodar no ZX-81, subs- 
titua as linhas seguintes: 


30 PRINT "ENTRE UM NUMERO ENTRE 
O E br 

35 INPUT N 

80 LET NS=NS+CHAS (28+INT N) 


ny 


10 CLS 

20 PRINT TAB(7);"BINÁRIO 2> DEC 
IMAL ” 

30 PRINT: INPUT ”" digite um núme 
ro entre O e 1 TN 

40 IF N<=0 OR N>=1 THEN 30 

50 N$="0.º 

60 FOR T=1l TO 30 

70 N=N*2 

80 NS$=NS+CHAS (48+INT (N)) 

90 N=N-INT(N) 

100 NEXT T 

110 LOCATE 0,10:PRINT “O número 
binário é :* 

120 PRINT: PRINT NS: PRINT 

130 PRINT "outro número (S/N) ? 


Ma 


140 AS=INKEYS 
150 IF AS$="S" THEN 10 
160 IF AS<>"N" THEN 140 


O AAT 
4 "o *e AA) A 


te Gir Ep 


170 END ;- 
sta. | 
) (38 pe 
ra E a 
ao 
10 HOME a Ea! 
a) 


20 HTAB 5: PRINT "CONVERSÃO DE 


Ny 


OA 
, 


Um ábaco binário utiliza uma conta em 
cada vareta. No computador, 

essa disposição é substituida 

por pulsos elétricos. 


IMULTEIPLICAÇAO BINARIA DECIMAL. 


1101 1101 
1011 


13 4 34 


10001111 





Em cada fase da multiplicação binária, você multiplica O por 
0, que dá 0, ou 1 por O, que também dá 0, ou ainda 1 por 1, 
que resulta sempre em 1. Veja como isto se aplica no exemplo 
acima, onde é simulada uma operação no vídeo do computador. 





NIVISAO RINôRIA 


| 
11001 | 101 
mê 


101 101 


OO) 
101 





DECIMAL 
11001 
101 


28 4 5: 
101 


Na divisão binária, finalmente, é necessário verificar se o 

divisor cabe no dividendo pelo menos uma vez. Se isto 

acontecer, o resultado será 1; caso contrário, será O. 

Isso faz da divisão uma das operações binárias mais simples. 3 


| | | 











| | 
INSERE» comecocemauna 2 tri 
| TE ] “o F | of pI | 


CIMAL PARA BINARIO” 


30 PRINT : PRINT DIGITE UM NU 
MERO”: INPUT "ENTRE O E 1 =27;N 
dO JENS “OO NA =1 THE 
N 30 

SO NO CU.” 

60 FORT =1 TO dgB 

ON =N*2 

BO NS = NS +  CHR$ (48 + INT (« 
N)) 

SO N = N- INT (N) 

100 NEXT T 

110 HTAB 1: VTAB 15: PRINT “O 
NUMERO BINARIO E: ” 

120 PRINT PRINT NS: PRINT 
130 PRINT PRINT "OUTRO NUMER 
140 GET AS 








150 IF AS = "5" THEN 10 
160 IF AS < > PN” THEN 130 
170 END 


O programa aceita qualquer numero 
entre 0 e | e imprime o seu equivalente 
binário. À linha 70 começa por dobrar 
o seu número e a linha 80 constrói o nú 
mero binário. Inicialmente o computa- 
dor trabalha com o valor de INT(N), 
que será ou 0 ou |. Então, a esse valor 
adiciona-se 48 para perfazer 48 ou 49, 
que são os códigos ASCII para 0 e. 
Tudo isto é feito de forma a transfor- 
mar os números em cadeias de caracte- 
res para que possam ser adicionados a 
variável N$. Na linha 90 tiramos a par- 


te inteira de N para deixar apenas a 
decimal, 

O programa no Sinclair Spectrum é 
um pouco diferente, porque enquanto 
INT 1 é 1, como se espera, INT (.5x 2) 
é O. Isto acontece porque ele armazena 
5x2 como .99999999.., Assim, uma 
pequena fração tem que ser adicionada 
a N na linha 70 para fazer com que INT 
funcione como deve. 

Nos modelos compatíveis com o 
ZX-81, a linha 80 usa outro número pa- 
ra somar ao valor inteiro de N (observe 
que essa máquina não usa o código AS- 
CII). O valor 28 corresponde ao carac- 
tere O, o valor 29 ao caractere 1, etc. € 
assim sucessivamente. 


O LONGO TRAJETO DO ÁBACO A ELETRÔNICA 


Os números binários podem ser 
adicionados, subtraidos, multiplica- 
dos e divididos como qualquer nume- 
ro na base 10. Entretanto, eles foram 
escolhidos para utilização nos com- 
putadores digitais em virtude de uma 
propriedade singular: é fácil verificar 
se um determinado circuito elétrico 
ou eletrônico está ligado ou desli- 
gado. 

Os dígitos binários são represen- 
tados por circuitos de computador. 
Quando um circuito está desligado, 
ele representa o dígito O, e quando 
está ligado, o digito 1. Nos circui- 
tos integrados do computador, os 
circuitos binários são arranjados 
em grupos de 8, de tal forma que 
valores binários de 8 bits podem 
ser representados. Isso dá uma 


gama de representação de 00000000 
-— ou O em decimal — a ANAMTI — 


Ê. SEDE FEEIES ESSA |EAREUO RESSÇA ERT de 
DEBE ta 


ou 255 em decimal. No manual do 
seu computador esse “número mági- 
co” — 255 (ou 256, se você contar 
a partir de 1, ao invés de 0) — apare- 
ce a todo momento. 

As vezes são necessários núme- 
ros binários muito maiores, e duas 
locações de memória de 8 bits cada 
são juntadas para obter um número 
binário de 16 bits. O microproces- 
sador Zilog Z-80, existente em mui- 
tos computadores pessoais, como o 
TRS-80, os compatíveis com MSX, 
etc., pode trabalhar com números de 
16 bits, e até mesmo fazer operações 

aritméticas com eles. Nestes casos, 
números binários entre 
0000000000000000 e 
1111111111111111, ou seja, 

entre O e 65.535, em decimal, 
podem ser manipulados. 


| | 
| 
| mama tm 
| 


IDI VIDA II DIVDDT TON VII TEITD 


' | | 
| 
| | 


DI1ITI1I1I1IIH+DDODZODDO1I=1200000DA 


| | 
| 4 | | 
| | | | 
| | | | | 
| | 
| | | | 
| | | | 
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LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NIHHnnnENO PRÓXIMO NÚMERONEEHEHI 


PROGRAMAÇÃO BASIC 
O computador funciona de forma lógica, embora não tenha cérebro. 
Para isso, basta que você o programe de modo adequado. 


CÓDIGO DE MÁQUINA 


Aprenda aritmética hexadecimal e domine o código de máquina. 


PROGRAMAÇÃO DE JOGOS 
Programe jogos, movendo figuras em labirintos. 
Construa paredes intransponíveis e encontre o mapa do tesouro. 


PERIFERICOS 
Como manipular o comando de gravação e trabalhar com um 
gravador conectado ao seu micro. 





